PROGRAM testerecursivo

WRITE(*,*) teste ENDPROGRAM id